Postcard CD: Niagara Parks/Postcard CD: Niagara Parks (2004).iso/pc/prv-f.dxr/B-W Icons_31.ls

Text File | 2002-01-09 | 673 b | 34 lines

global castName

on beginSprite me
  if castName = "GreatGorgeAdventure" then
    sprite(53).blend = 100
    sprite(53).memberNum = sprite(53).memberNum + 14
  end if
end

on mouseEnter me
  if castName <> "GreatGorgeAdventure" then
    sprite(53).blend = 100
    sprite(53).memberNum = sprite(53).memberNum + 14
  end if
end

on mouseLeave me
  if castName <> "GreatGorgeAdventure" then
    sprite(53).blend = 50
    sprite(53).memberNum = sprite(53).memberNum - 14
  end if
end

on mouseDown me
  global castIndex, PauseSS
  if PauseSS = 1 then
    PauseSS = 0
    sprite(100).member = member(8, 2)
  end if
  castIndex = 3
  castName = "GreatGorgeAdventure"
  go(2)
end